|
|  Rules for the game of Seahaven Towers
|  Written by J.Horsnell BSc(Hons) MSc
|
|  This is a game I once saw on another computer.
|  Its ten stacks are of the same-suit descending
|  value kind and must comply with the rules to 
|  be moved. Only kings may be moved onto an empty
|  stack. The four stacks in the middle at the top
|  are able to store one card of any kind. The 
|  foundations are on either side of these stacks
|  and are built from the ace up. Only one card 
|  may be moved at any time but since there are four
|  card stores at the top this means one card plus
|  the number of empty card stores.
|
SCRIPT_TYPE 1
|
BEGIN "Seahaven towers"

  FLAGS ClickFly AutoFly AnimateFly
  WIDTH  10 * CW
  HEIGHT 10 * CH
  ZeroToWin 52 - CARDSIN$1

| Foundations

  FOR stack = 0 TO 1
    FOR pile = 0 TO 1
      FOUNDATION
        X stack * CW + pile * 8 * CW
        Y 0
        ID 1
      END
    END
  END

| Tableau

  FOR stack = 0 TO 9
    STACK
      X stack * CW 
      Y CH
      FIRST 13
      DEAL 5,1
      DRAGUPTO 1 + EMPTY$2
      DragOffset -1
      FLAGS DeepCheck ClickFly JoinSS__ DragSS__
    END
  END

| Cells

  FOR stack = 0 TO 1
    STACK
      X CW * 4 + stack * CW
      Y 0
      FIRST 1,13
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS PaintLast ClickFly
      ID 2
    END
  END

  FOR stack = 0 TO 1
    STACK
      X CW * 3 + stack * CW * 3
      Y 0
      FIRST 1,13
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS PaintLast ClickFly
      ID 2
    END
  END

END
